home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / E-G / GetDANames 1.2.cpt / GetDANames 1.2 / stack.txt < prev   
Text File  |  1989-02-26  |  5KB  |  153 lines
  1. -- stack: in.2
  2. -- format: 8 (HyperCard 1)
  3. -- flags: 0x1000 (none)
  4. -- protect password hash: 0
  5. -- maximum user level: 5 (scripting)
  6. -- window: Rect(x1=0, y1=0, x2=0, y2=0)
  7. -- screen: Rect(x1=0, y1=0, x2=0, y2=0)
  8. -- card dimensions: w=0 h=0
  9. -- scroll: x=0 y=0
  10. -- background count: 1
  11. -- first background id: 2812
  12. -- card count: 4
  13. -- first card id: 2935
  14. -- list block id: 4449
  15. -- print block id: 0
  16. -- font table block id: 0
  17. -- style table block id: 0
  18. -- free block count: 4
  19. -- free size: 10848 bytes
  20. -- total size: 44032 bytes
  21. -- stack block size: 4096 bytes
  22. -- created by hypercard version: 0x00000000
  23. -- compacted by hypercard version: 0x01208000
  24. -- modified by hypercard version: 0x01208000
  25. -- opened by hypercard version: 0x01208000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x8000000008000000
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0x8888222288882222
  30. -- patterns[4]: 0x88AA22AA88AA22AA
  31. -- patterns[5]: 0xCCAA33AACCAA33AA
  32. -- patterns[6]: 0xEEAABBAAEEAABBAA
  33. -- patterns[7]: 0xEEBBBBEEEEBBBBEE
  34. -- patterns[8]: 0xFFBBFFEEFFBBFFEE
  35. -- patterns[9]: 0xFFBBFFFFFFBBFFFF
  36. -- patterns[10]: 0x8010022001084004
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0x1122448811224488
  40. -- patterns[14]: 0xC4800C6843023026
  41. -- patterns[15]: 0xB130031BD8C00C8D
  42. -- patterns[16]: 0xAA00AA00AA00AA00
  43. -- patterns[17]: 0x8822552288225522
  44. -- patterns[18]: 0x8855225588552255
  45. -- patterns[19]: 0x77DD77DD77DD77DD
  46. -- patterns[20]: 0x8000000000000000
  47. -- patterns[21]: 0xAA55AA55AA55AA55
  48. -- patterns[22]: 0x038448300C020101
  49. -- patterns[23]: 0x8244394482010101
  50. -- patterns[24]: 0x8814224188412214
  51. -- patterns[25]: 0x8080413E080814E3
  52. -- patterns[26]: 0x22048C7422179810
  53. -- patterns[27]: 0xBE808808EB088880
  54. -- patterns[28]: 0x25C8328964244C92
  55. -- patterns[29]: 0xA29C41BE2AC914EB
  56. -- patterns[30]: 0x40A00000040A0000
  57. -- patterns[31]: 0x8040200002040800
  58. -- patterns[32]: 0xAA00800088008000
  59. -- patterns[33]: 0xFF80808080808080
  60. -- patterns[34]: 0x081C22C180010204
  61. -- patterns[35]: 0xFF808080FF080808
  62. -- patterns[36]: 0xF87422478F172271
  63. -- patterns[37]: 0xBF00BFBFB0B0B0B0
  64. -- patterns[38]: 0xFF7FBE5DA2418000
  65. -- patterns[39]: 0xFAF5FAF5A050A050
  66. -- checksum: 0x0
  67. ----- HyperTalk script -----
  68. on openStack
  69.  
  70.   hide menubar
  71.  
  72.   go first card
  73.   hide card field "Acknowledgments"
  74.   hide card field "Revision history"
  75.   hide card field "Terms of distribution"
  76.  
  77.   --  "This handler is used to put the current pathname of this stack
  78.   --  into the copier button's script, so that wherever the button is
  79.   --  pasted, it will always know where to find this stack, and the
  80.   --  XCMD's that it needs, without the user having to tell it."
  81.   --  - James L. Paul
  82.   put long name of this stack into pathname
  83.   delete first word of pathname
  84.   set lockscreen to true
  85.   push this card
  86.  
  87.   --  Put the current pathname of this stack into the scripts
  88.   --  of the two resource-copying buttons on the fourth card,
  89.   --  "Copy it to my stack"
  90.  
  91.   --  Button 1, "Copy GetDANames XCMD"
  92.   go to card "Copy it to my stack"
  93.   get script of card button "Copy GetDANames XCMD"
  94.   delete word 2 of line 2 of it
  95.   put "" && pathname after word 1 of line 2 of it
  96.   set the script of card button "Copy GetDANames XCMD" to it
  97.  
  98.   --  Button 2, "Copy 'suitcase' icon"
  99.   go to card "Copy it to my stack"
  100.   get script of card button "Copy 'suitcase' icon"
  101.   delete word 2 of line 2 of it
  102.   put "" && pathname after word 1 of line 2 of it
  103.   set the script of card button "Copy 'suitcase' icon" to it
  104.  
  105.   pop card
  106.   set lockscreen to false
  107.  
  108. end openStack
  109.  
  110. ------------------------------
  111.  
  112. on closeStack
  113.   show menubar
  114. end closeStack
  115.  
  116. ------------------------------
  117.  
  118. -- Return the number of DAs in the Apple menu
  119. function numberOfDAs
  120. GetDANames
  121. return the number of items in namesOfDAs
  122. end numberOfDAs
  123.  
  124. ------------------------------
  125.  
  126. -- Truncate a text string at 15 characters.  If the string is
  127. -- longer than 15 characters, put an elipses ("‚Ķ") after the string
  128. function truncateAt15Chars theTextToTruncate
  129. if length(theTextToTruncate) > 15 then
  130.   return char 1 to 15 of theTextToTruncate & "‚Ķ"
  131. else
  132.   return theTextToTruncate
  133. end if
  134. end truncateAt15Chars
  135.  
  136. ------------------------------
  137.  
  138. -- Error messages used when copying the XCMD and Suitcase icon
  139. -- to another stack (on card four of this stack)
  140. on errorMessage errorNumber
  141.   if errorNumber = 1 then
  142.     answer "The wrong number of parameters were passed." with "OK"
  143.   else if errorNumber = 2 then
  144.     answer "The source file couldn't be opened." with "OK"
  145.   else if errorNumber = 3 then
  146.     answer "A new destination file couldn't be created." with "OK"
  147.   else if errorNumber = 4 then
  148.     answer "The resource to be copied wasn't found in the source." with "OK"
  149.   end if
  150. end errorMessage
  151.  
  152.  
  153.